home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 70 / 070.d81 / wp merge (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  50 lines
  1. 5 poke53280,0:poke53281,0:gosub300
  2. 10 printchr$(14);:input"[147][159][208]rogram or [211]equential?  p/s";ft$
  3. 15 input"[193][211][195][201][201] or [211]creen [195]ode?  a/s";a$
  4. 20 ad=0:ifa$="s"thenad=64
  5. 30 input "[198]orm filename";ff$
  6. 40 input "[196]ata filename";df$
  7. 50 open2,8,2,(ff$)
  8. 60 open3,8,3,(df$)
  9. 70 open4,8,4,""+left$(ff$,14)+".2,"+ft$+",w"
  10. 80 :
  11. 90 get#3,a$:if st>0 then 150
  12. 100 ifa$=""then90
  13. 110 a=asc(a$)+ad
  14. 120 if a<>91 then 90
  15. 130 get#3,a$:a=asc(a$)+ad:if a=93 then t=t+1:goto 90
  16. 140 da$(t)=da$(t)+a$:goto 130
  17. 150 close 3:print:print"[214]ariables found:"t:print
  18. 160 :
  19. 170 get#2,a$:if st>0 then 260
  20. 180 ifa$=""then240
  21. 190 a=asc(a$)+ad
  22. 200 ifa<>92then240
  23. 210 get #2,b$:if st>0 then fl=1
  24. 220 b=val(b$):if b<0 or b>9 then print#4,a$;b$;:goto250
  25. 230 print#4,da$(b);:v=v+1:print v;:goto250
  26. 240 print#4,a$;
  27. 250 if fl=0 then 170
  28. 260 close2:close4
  29. 270 print:print"[193]nother?  y/n"
  30. 280 geta$:ifa$=""then280
  31. 290 ifa$="y"thenrun
  32. 295 end
  33. 300 print"[147][129]           [209]&[196] [215][208] [205][197][210][199][197]"
  34. 310 print"[159]    [194]efore merging, you need to create"
  35. 320 print"a form file that has \0, \1, \2, etc."
  36. 330 print"in places where you would like data"
  37. 340 print"inserted.  [212]hen, using the same word"
  38. 350 print"processor, create a data file that has"
  39. 360 print"the data to be inserted listed, one"
  40. 370 print"line at a time, in brackets."
  41. 380 print"    [194]efore you continue "chr$(34)"[215][207][210][196] [205][197][210][199][197]"chr$(34)","
  42. 390 print"you need to determine whether your word"
  43. 400 print"processor uses [208][210]o[199]ram or [211][197][209]uential"
  44. 410 print"files, and whether it uses [193][211][195][201][201] or"
  45. 420 print"screen code.  [201]f you don't know, use"
  46. 430 print"the trusty trial-and-error method.
  47. 440 [153]"        (NULL)ress (NULL)(NULL)atnlenval to continue"
  48. 450 [161]a$:[139]a$[178]""[167]450
  49. 460 [142]
  50.